perm filename KAFFEE.SAI[HAK,HPM] blob sn#481405 filedate 1979-10-12 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "KAFFEE"
C00003 ENDMK
CāŠ—;
BEGIN "KAFFEE"
INTEGER I;
FOR Iā†59 STEP -1 UNTIL 0 DO
   BEGIN
   CALL(CVSIX("KAF "&CVS(I MOD 60)),"SETNAM");
   CALL(60,"SLEEP");
   END;

END "KAFFEE";